home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
n_b_v203.zip
/
PUT-FB.DMO
< prev
next >
Wrap
Text File
|
1996-07-04
|
3KB
|
49 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME PUT-FB .DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
$INCLUDE "DAS-NBV1.INC" '┌──────────────────────
CLS '│
SCREEN 12 '│
GraphicSETUP '│ don't forget this!
'│
BpC% = fBMPwords%( 8, 16 ) - 1 '│ storage size
DIM Font% ( BpC%, 255 ) '│ storage array
FOR C% = 0 TO 255 '│ 255 characters
LOCATE 1, 1 : PRINT CHR$(C%) '│ print chr to screen
fGetPArr 0, 0, 7, 15, Font%(0,C%), 0 '│ read plane 0 into
NEXT '│ storage array
'│
T$ = " A quick brown fox jumps over the lazy dog. " '│ a good test string
SetForeground 15 '│ set foreground color
'│
FOR Row% = 0 TO 239 STEP 16 '│ 15 iterations
SetBackground Bg? '│ set background color
Col% = 0 '│ reset column
FOR P% = 1 TO LEN( T$ ) '│ print the string
A% = ASCII( MID$( T$, P% ) ) '│ get ASCII value
PutFBarr Col%, Row%, Font%(0,A%) '│ put chr from array
INCR Col%, Font%(0,A%) '│ move columns
NEXT '│
INCR Bg?, 1 '│ next background
NEXT '│
'│
WHILE NOT INSTAT : WEND '│
CLS '│
SCREEN 0 '└──────────────────────